home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / [_leo_html502641212002.psc / fader3.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2002-01-21  |  4.6 KB  |  150 lines
  1. VERSION 5.00
  2. Begin VB.Form Form3 
  3.    BackColor       =   &H00C07800&
  4.    BorderStyle     =   0  'None
  5.    Caption         =   "Form3"
  6.    ClientHeight    =   1650
  7.    ClientLeft      =   0
  8.    ClientTop       =   0
  9.    ClientWidth     =   5700
  10.    LinkTopic       =   "Form3"
  11.    ScaleHeight     =   1650
  12.    ScaleWidth      =   5700
  13.    ShowInTaskbar   =   0   'False
  14.    StartUpPosition =   2  'CenterScreen
  15.    Tag             =   "made by leo/jason"
  16.    Begin VB.Label Label4 
  17.       Alignment       =   2  'Center
  18.       BackStyle       =   0  'Transparent
  19.       Caption         =   "OK"
  20.       BeginProperty Font 
  21.          Name            =   "MS Sans Serif"
  22.          Size            =   12
  23.          Charset         =   0
  24.          Weight          =   400
  25.          Underline       =   0   'False
  26.          Italic          =   0   'False
  27.          Strikethrough   =   0   'False
  28.       EndProperty
  29.       ForeColor       =   &H00FFFFFF&
  30.       Height          =   315
  31.       Left            =   2025
  32.       TabIndex        =   2
  33.       Tag             =   "made by leo/jason"
  34.       ToolTipText     =   "Click here to exit the dialog"
  35.       Top             =   1200
  36.       Width           =   1515
  37.    End
  38.    Begin VB.Shape Shape3 
  39.       BackColor       =   &H00C07800&
  40.       BackStyle       =   1  'Opaque
  41.       Height          =   315
  42.       Left            =   2025
  43.       Top             =   1200
  44.       Width           =   1515
  45.    End
  46.    Begin VB.Label Label1 
  47.       Alignment       =   2  'Center
  48.       BackStyle       =   0  'Transparent
  49.       BeginProperty Font 
  50.          Name            =   "MS Sans Serif"
  51.          Size            =   12
  52.          Charset         =   0
  53.          Weight          =   400
  54.          Underline       =   0   'False
  55.          Italic          =   0   'False
  56.          Strikethrough   =   0   'False
  57.       EndProperty
  58.       ForeColor       =   &H00FFFFFF&
  59.       Height          =   765
  60.       Left            =   150
  61.       TabIndex        =   1
  62.       Tag             =   "made by leo/jason"
  63.       Top             =   450
  64.       Width           =   5415
  65.    End
  66.    Begin VB.Shape Shape2 
  67.       BorderColor     =   &H00000000&
  68.       FillColor       =   &H00C07800&
  69.       FillStyle       =   0  'Solid
  70.       Height          =   1215
  71.       Left            =   75
  72.       Tag             =   "made by leo/jason"
  73.       Top             =   375
  74.       Width           =   5565
  75.    End
  76.    Begin VB.Label tt 
  77.       Alignment       =   2  'Center
  78.       BackColor       =   &H00000000&
  79.       BackStyle       =   0  'Transparent
  80.       BeginProperty Font 
  81.          Name            =   "MS Sans Serif"
  82.          Size            =   12
  83.          Charset         =   0
  84.          Weight          =   400
  85.          Underline       =   0   'False
  86.          Italic          =   0   'False
  87.          Strikethrough   =   0   'False
  88.       EndProperty
  89.       ForeColor       =   &H00FFFFFF&
  90.       Height          =   315
  91.       Left            =   75
  92.       TabIndex        =   0
  93.       Tag             =   "made by leo/jason"
  94.       Top             =   75
  95.       Width           =   5565
  96.    End
  97.    Begin VB.Shape Shape1 
  98.       BorderColor     =   &H00000000&
  99.       FillColor       =   &H00C07800&
  100.       FillStyle       =   0  'Solid
  101.       Height          =   315
  102.       Left            =   75
  103.       Top             =   75
  104.       Width           =   5565
  105.    End
  106. Attribute VB_Name = "Form3"
  107. Attribute VB_GlobalNameSpace = False
  108. Attribute VB_Creatable = False
  109. Attribute VB_PredeclaredId = True
  110. Attribute VB_Exposed = False
  111. Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
  112. Private MouseDownForm
  113. Private MouseDownFormX
  114. Private MouseDownFormY
  115. Private Type POINTAPI
  116.     X As Long
  117.     Y As Long
  118. End Type
  119. Private Sub tt_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  120. MouseDownForm = 1
  121. MouseDownFormX = X
  122. MouseDownFormY = Y
  123. End Sub
  124. Private Sub tt_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
  125. MouseDownForm = 0
  126. End Sub
  127. Private Sub tt_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  128. DoEvents
  129. If MouseDownForm <> 1 Then
  130. Exit Sub
  131. End If
  132. Dim Z As POINTAPI
  133. Call GetCursorPos(Z)
  134. Form3.Top = (Z.Y * 15) - MouseDownFormY
  135. Form3.Left = (Z.X * 15) - MouseDownFormX
  136. End Sub
  137. Private Sub Label4_Click()
  138. If PTemp = 1 Then
  139. End If
  140. Form3.Hide
  141. End Sub
  142. Private Sub Label4_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  143. Shape3.BackColor = MdBgColor
  144. Label4.ForeColor = MdFgColor
  145. End Sub
  146. Private Sub Label4_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
  147. Shape3.BackColor = BgColor
  148. Label4.ForeColor = FgColor
  149. End Sub
  150.